program xbox;

{$R 'xBoxCollection.res' 'xBoxCollection.rc'}
{$R 'handpointer.res' 'handpointer.rc'}

uses
  Forms,
  Windows,
  Main in 'Main.pas' {MainForm},
  About in 'About.pas' {AboutForm},
  Options in 'Options.pas' {OptionsForm},
  Gotof in 'Gotof.pas' {GotoForm};

{$R *.RES}

var FontName : string;

begin
 { Install Chasoft.fon at runtime }
  FontName := 'chasoft.fon';
  if AddFontResource(@FontName[1]) <> 0 then
  SendMessage(HWND_BROADCAST, $001D, 0, 0);

  Application.Initialize;
  Application.Title := 'Chasoft XBox 2004';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TOptionsForm, OptionsForm);
  Application.CreateForm(TGotoForm, GotoForm);
  Application.Run;
end.
